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=-1984 36:47 VAX-11 Bliss-32 V4.0=-742 
et ri Set oe ee 


; 1 0001 0 MODULE INIFC2 ( 

cag 8008 9 IDENT se yoneb00"” 

; 4 0004 QO )s 

3 5 0005 1 BEGIN | 
; 6 0006 1 | 
; 7 0007 1! 
s 3 si : SRR EREEEE | 
: :* : | 
3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

$ 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; \¢ Boi § ! os ALL RIGHTS RESERVED. * 

Ps ; te 

: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coPice * 

3 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

: 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOF OR AN THE * 

5 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 i sd : > TRANSFERRED. * 

: ‘® ® 

; 21 b054 1 !* pe gt ge IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 22 0022 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
; St B07 1 7? CORPORATION. * 

3 '® ® 

: @ 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
;- @ pos 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
— ar 0027 1 !* * 
; 28 0028 1 !* * | 
: 29 594 LL eee eee RARER RARER AERA AAA AAA RAE AERA EAE E AERA AREER REE 

; 30 0030 1 

; 31 0031 1 !4¢4 

: 32 0032 1! 

s 639 0033 1 ! FACILITY: F11ACP Structure Level 2 

3 34 0034 1! 

g 35 0035 1 ! ABSTRACT: 
3 36 0036 1! | 
3 37 0037 1! These routines create and initialize a file control block 

; BR 0038 1! from the given file header. | 
3 39 0039 1! 

; 69 0040 1 | ENVIRONMENT: 

; #1 0041 1! 

; 42 0042 1! STARLET operating system, including privileged system services 

: 65 0045 1! and internal exec routines. These routines must be called in 

: 644 bbe 1! kernel mode. 

: 45 045 1 

: 46 046 1! 
: 67 047 1 !-- 
>; 68 0048 1! 

; «649 Boe 3 | 
; 3 , ! AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Dec-1976 16:48 | 
; 25 09 ! ' MODIFIED BY: | 
3; 54 0 1 v03-015 CDS0006 Christian D. Saether zo-Au 1984 | 
. 0 1 Add o oye PRIMFCB argument to INIT_FCB 
; 28 : CB routines. 


] 
wees 16- ie 1984 t 9: 38: $7 VAX-11 Bliss-32 V4.0-742 7) 
v04-000 14-Sep F-10984 DISKSVMSMASTER:CF11X.SRCJINIFC2.832; 39 eas 
; 0058 1! v03-014 CDS0005 Christian D. Saether 15-Aug-1984 | 
: 4 R228 ! Set MARKDEL and BADBLOCK flags from header. | 
: 61 0061 1 | vO3-013 cDs0004 Christian D. Saether  31-July=1984 | 
3 6¢ pes 1! Remove local declaration of get_map_pointer Linkage. 
; § 0065 1! Use locals to reference fcb and header arguments. | 
; 64 0064 1! Remove test for directory fc | 
; 6 0065 1! Change acl insque to ad¢ at end of List. 
: 66 Bpe8 : Use common acl init routine. | 
: «68 0068 1! V03-012 ACG0440 Andrew C. Goldstein 23-Jul-1984 11:56 
: +4 BS , } } Add ref count and classification valid flag to ORB in the FCB 
: 71 0071 1! V03-011 LMP0275 Pilan 12-Jul-1984 15:08 
he 4 3 Initialize the act Hare in the "ORB to be a null descriptor 
3 7 0075 1! list rather than an empty queue. This avoids the overhead 
: «674 0074 1! of ly | and unlocking the ACL mutex, only to find out 
: a? B22 } } that the ACL was empty. 
ee a 4 0077 1! v03-010 cDS0003 Christian D. Saether 26-Apr-1984 
: me pore : Set up FCBSL_LOCKBASIS. 
: 80 0080 1: v03-009 LMP0221 L. Mark Pilant, 7-Apr-1984 11:58 | 
: 3 ie : } Add support for the ORB within the FCB. 
; | 83 0083 1! v03-008 ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:53 | 
: Be Bose : Make APPLY_RVN and DEFAULT _RVN macros 
: 86 0086 1! v03-007 LMP0208 ark Pilant 9-Mar-1984 9:21 
: 4 sit $4 } Copy the BADACL bit tree the ae to the FCB. 
: 89 0089 1 | v03-006 LMPO1 88 Mark Pilan 3-Feb-1984 15:45 
: 90 0090 1: FILL in. the classification Bleck in the Feel? it exists | 
; 4 0091 ! in the file header. | 
: 9 0093 1 | v03-005 cps0002 Christian D. Saether 18-Jan-1984 | 
: oe 4 ! Modify interface to APPLY_RVN 
; 96 009% 1! v03-004 ¢DS0001 _. Christian D. Saether 30-Dec-1983 | 
; 4 0097 Use L_NORM Linkage and BIND_COMMON macro. | 
: 99 0099 1 | v03-003 LMP0073 L. Mark Pilant, 20-Jan-1983 9:31 | 
> 100 0100 1! Use the reserved area offset as the upper Limit to the | 
: 191 O10 ' } ACL segment size in a file header. | 
: 108 1 1 i v03-002 ACG0308 Andrew C. Goldstein, 14-Jan-1983 15:21 
: ie HF ! } Fix FCB Linkage consistency problems 
: 106 106 1! v03-001 LMP0068 L. Mark Pilant, 21-Dec-1982 12:11 | 
: 107 1 ‘7 If the header contains ACL information, create a new ACL 
: 138 198 ' segment and Link it into the chain. | 
; 110 110 1! v02-003 ACG0241 Andrew C. Goldstein, | 11-Dec-1981 22:53 | 
“ae ay eae Make updating of FCB common code, add handling 
: \¢ 1 : of directory bit | 
: 114 114 1 v02-002 ACGO167 Andrew C. Goldstein, 16-Apr-1980 19:26 | 
| 
| 
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16 
INIFC 1b-Sep-1986 00:36:47 VAX=11 BLiss-32_v4.0-742 Pose 4 
04-000 bee et ra eT Se te a en 
GLOBAL ROUTINE INIT_FCB2 (FCBARG, HEADER, PRIMFCB) : L_NORM NOVALUE = 
'44 


FUNCTIONAL DESCRIPTION: 


This routine initializes the given FCB according to the given 
file header. 


CALLING SEQUENCE: 
INIT_FCB (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: FCB address 
ARG2: header address 
ARGS: optional arg to specify primary fcb 


IMPLICIT INPUTS: 

HEADER_LBN contains LBN of header block 
OUTPUT PARAMETERS: 

NONE 
! IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
FCB initialized 


BEGIN 
P 
HEADER : REF BBLOCK; ! file header arg 
GLOBAL REGISTER 
COUNT = g. ! retrieval pointer count 
LBN ae ! retrieval pointer LBN 
MAP_POINTER = 8; ! pointer to scan map area 


BASE_REGISTER; 


EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER; ! get value of file map pointer 


LOCAL 
FCB : REF BBLOCK; 


FCB = .FCBARG; 
: Scan the map area. Count up the file size from the retrieval pointers. 


WO NINN ISN NN NOAA A AAAAAAQAMMMNMNN ITU BBB ED AANA 
WR =O DONO UE WN 0 ODN UE WN 9 ODNOAU EWN OO ONAUES WR “ODO DNOULWWR OOO 
ee me me ee ee eB ee BD ee a ee ee ec ee ce ee ee ee ee ed ed ed ed Wd 
SNS A AAA AA AAAI SBE EEE EWAN nnopopononononononn 2 2 SS 
NRO ODNOAUE WIN OC ODNOAUE WN OO ONAUES WN OVD ONOAUES WR (ODO NOUSWR OOOO 
FIPDPRIPINININIPIMINIPININIANIPIN INNA a sk dd dh dt 
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INF 2, 1$-ep-1984 00:36:47 vARed 


MAP POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETIJ*2; 
FCBCFCBSL FILESIZE = 0; 


+ »MAP_POINTER GEQA .HEADER + (.HEADERCFH2$B_MPOFFSET] + .HEADERCFH2$B_MAP_INUSEJ) * 2 


32 V4,0-742 ge 5 
R:CF11X.SRCJINIFC2.832; ? (2) 


EGIN 
T_MAP_POINTER (); 
FeatrcesL ri LESIZE) = .FCBCFCBSL_FILESIZE] + .COUNT; 


Now set up the rest of the fields. 


IF ACTUALCOUNT EQL 3 
FILL_FCB (.FCB, .HEADER, .PRIMFCB) 
FILL_FCB (.FCB, .HEADER); 


ELSE 


DOCOCOCOOOOOOOOOWMMOMMmo 
FUN" O DONOUE WN OOONOUS 
Ok kk ak kk tt es 
Ot kk tk tk td 
OOO OCWDOWMOWOWOONNNNNNN 
WR — OC OONOYV EWN —OOONOUL WW 


=—POPIPIPIPIPINIPUR PON TU Wwnornoronerny 
“4 


POROROPORD @ ss 


END; ! end of routine INIT_FCB 

TITLE INIFC2 

-IDENT \V04-000\ 
-EXTRN GET_MAP_POINTER 
-PSECT S$CODES,NOWRT,2 


01c¢¢ 00000 .ENTRY INIT FCB? aoave R2,R3,R6,R7,RB : 1116 
52 04 AC dO 00002 OVL FCBARG, : 1168 
51 08 AC 00 00006 OVL HEADER > 1173 
50 01 Al 9A OOO0A MOVZBL 1(R1) ; 
58 6140 3€ 0000 OVAW Rt) of MAP_POINTER : 
38 =6A2 «(D4 0001 CLRL 56(FCB) + 1176 
51 08 AC 00 00015 1$: MOVL HEADER, R1 + 1176 
50 01 Al 9A 00019 MOVZBL 1(R1), RO : 
53 A Al 9A 0001D mOVZBL 58(R1), R3 : 
50 53 co 00021 ADDL2 R3, RO ; 
50 6140 3E 00024 MOVAW  (R1)CRO ; 
50 58 D1 00028 CMPL KAP POINTER. RO : 
09 1€ 00028 BGEQU 2$ : 
00006 30 00020 BSBW  §GET_MAP_POINTER : 1179 
38 A2 56: «6£ 0030 ADDL2 COUNT, 56(FCB) ; 1180 
DF 11 90 BRB 1$ : 1176 
03 6C 91 00 6 2%: CMPB es), #3 : 1160 
0C 12 00039 BNEQ 2$ F 
7E 08 AC 70 038 MOVQ HEADER, -(SP) : 1188 
3¢ DD 6003F PUSHL FCB : 
0000v CF 03 FB 00041 CALLS » FILL_FCB ; 
04 0046 RET ; 
08 ac DD 004 3$: PUSHL HEADER > 1190 
0000v CF 85 PB Sooce Cure = oo. FILL FCB ' 
Oe 0051 RET : 1193 


W042660 hee 8pn19Be 99:30:31 DrexSuMeMASTERSCI Tix. SRCIINIFC2.832;1°%° (26 
; Routine Size: 82 bytes, Routine Base: S$CODE$ + 0000 
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16 
1$-Se0-1984 99:38:3;  BNksume JINIFC2.B32:1°9" (35 


14-Sep-1984 DISKSVM 
GLOBAL ROUTINE FILL_FCB (FCBARG, HDRARG, PRIMFCB) : L_NORM NOVALUE = 


Liss-32 V4.0-742 
MASTER: CF11X.SRC 


'e4 
' 


FUNCTIONAL DESCRIPTION: 


This routine updates the file attributes of the specified 
if any, with the file attributes of the given header. The 
is preserved. 


FCB, 
file size 


CALLING SEQUENCE: 
FILL_FCB (ARG1, ARG2) 


INPUT PARAMETERS: 
ARG1: address of FCB 
ARG2: address of file header 
ARGS: optional arg to specify primary fcb 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


' SIDE EFFECTS: 
FCB is updated if it exists 


. 
' 
. 
' 
' 
. 
' 
. 
{ 
' 
. 
' 
. 
4 
. 
' 
' 
1 
} 
: 
' 
J 
' 
' 
4 
J 
' 
' 
' 
' 
. 
' 
' 
4 
' 
' 
te 


BUILTIN 


NAVE WN $0 OONAUE WN O OONAOU EWN OODNOUSWWN OOOO 


0 
0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
rd 
3 
3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 


Dat atabaiadatad dadbatadmiadaiadiatamiaidwa—abmaiatatatai adeeb abadat ad odadeduiabdabababababababababaDadabad 

PRIPIPIPIPPIPNININYINIPONINYPPYPYNIDNINI NIPPON NIPYDINININININPIPOPOPINPININPIPIPUNPIPOPUNININUNI PUNY 2 SS 

FS at tt et tt SSS Rr 6 Oe ten dere oo G0 tS ewe base he ee ee 
MEW 0 OO NAME WIN O OONOAUM EWN $$ O OONOAU EWN OD ONO EWR) OOO 
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1 
1 
; BEGIN 
: 


: 
2 
é 
2 
é 
2 
; 
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2 
r4 
2 
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2 
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2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
e 
é 
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TR TRTEITEIEILILILILILIE Tee eee eee rere rerarererere rere rerire re Te Tere eerie ee 


REMQUE ; 
LOCAL 
: REF BBLOCK, ' local copy of fcb address 
9 FCB_ORB : REF BBLOCK, ' Address of the ORB within the FCB 
0 ER : REF BBLOCK, ' local copy of header arg 
1 ACE_ADDRESS : REF BBLOCK, ! Address of current ACE in header 
¢ ACL_LENGTH ! Size of ACL segment to create 
ACL-ADDRESS : REF BBLOCK, | Address of created ACL segment 
4 FCB : REF BBLOCK, ! FCB for ACL segment 
2 Y; ! dummy target for REMQUE 
7 GLOBAL REGISTER 
8 § COUNT = . ! retrieval pointer count 
9 LBN =f, ' retrieval pointer LBN 
of 3 MAP_POINTER = 8; ! pointer to scan map area 
62 50 BIND_COMMON; 


a — 


' 
INIFC 16-Sep-1984 00:36:47 VAX"11 BLiss-32_V4.0-742 p 8 
04-000 ea Ree eee OER eT Ne dbnGaaSteacch tig. cneainirc2.e32:1°%* «35 


3; 265 1251 

; 264 1 5 EXTERNAL 

; 65 125 EXESGL_DYNAMIC_FLAGS : BITVECTOR ADDRESSING_MODE (ABSOLUTE), 

: 266 1254 ' Dynamic SYSGEN fieps 

3; 267 1255 CTL$GL_PCB : REF BBLOCK ADDRESSING_MODE (GENERAL); 

; soe 1 28 ' PCB address 

: 269 125 

4 5/0 1258 EXTERNAL LITERAL 

3 a! : 23 EXESV_CLASS_PROT; ! Set if doing non-discretionary checks 
3 $38 1261 EXTERNAL ROUTINE 

: see 1 6¢ ACL_INIT_ QUEUE ! ACL initialization 

: 275 106 GET“MAP_POINTER : L_MAP_POINTER, ! get value of file map pointer 

; gre oe ALLOC_PAGED : LINORA; ' Allocate system dynamic memory 

3 sf8 He ! Note the address of the ORB within the FCB. 

: 280 1268 FCB = .FCBARG; 

3; 281 1269 HEADER = .HDRARG; 

; Be 1270 FCB_ORB = FCBCFCBSR_ORB); 

: «284 1$7¢ ! Get the known constants and the simple stuff from the file header 

3 gee 127 ! (i.e., header LBN, file ID, starting VBN, file owner and file protection). 
; 286 1274 § : 

: 287 1275 

; 288 1276 § FCBCFCBS$L_HDLBNJ = ,HEADER_LBN; 

; 289 1277 2 FCBCFCBSW_FID_NUMJ = JHEADERCFH2$W_FID_NUM); 

: 290 1278 2 FCBCFCBSW~FID~SEQ) = [HEADERCFHOSW-FID~SEQ); 

: 291 1279 2 FCBLFCBSW-FID-RVNJ = [HEADERCFHOSW_FID-RVNI: 

; $3g 1609 FCBLFCBS$W"SEGNI = .HEADERCFH2$W_SEG NUM]; 

: 29 1281 2 FCB_ORBCORBSL_OWNER] = _ ,HEADERCFHOSL—F ILEOWNER); 

; 294 1288 FCB-ORBLORB$V-PROT_16] = 1; 

: 295 128 F CB~ORBLORB$W~PRO = ,HEADERCFH2$W_FILEPROTI; 

; 296 1284 FCB_ORBLORBS$V_MODE_VECTOR] = 1; 

; 297 1285 2 FCB-ORBCORBSL-MODE~PROTL] = NOT .HEADERCFH2$B_ACC_MODE); 

3 4 1986 FCB_ORBCORBSL_MODE_PROTH) = -1; 

. 00 1288 SASSUME (FH2$S_CLASS_PROT EQL ORBSS_MIN_CLASS); 

; $03 130 SASSUME (FH2SS_CLASS_PROT EQL ORBSS_MAX_CLASS); 

; 1381 IF .EXESGL panic FLAGSCEXESV_CLASS_ PROT) 

: 304 1 3 AND .HEADERCFH2SB_TDOFFSETJ*2 GTRU FA2SC_LENGTH 

: 305 129 THEN 

3 $08 1294 BEGIN 

3 0 1295 CHSMOVE (FH2$S_CLASS_PROT, HEADER puigen CLASS PROT oe Ore onan IN CLASS FE 
; 308 1296 CHSMOVE (FH2$S-CLASS PROT, HEADERCF H $R“CLASS"PROTJ, FCB-ORBCORBSR—MAX_CLASS)); 
: 309 129 FCB_ORBCORB$V_CLASS_PROT) = 1; 

oo im aS 

3 \¢ 1300 Ae Ae sed a Td = ae CHEADERCFH2$W_RECATTRJ, FATSW_VERSIONS); 
: 1 1301 APPLY_RVN (FCBCFCBSW_FID_RVNJ, .CURRENT_RVN); 

: 14 1 8 (FCB FCBS$L_LOCKBASIS )<0,16> = .FCB FCBSW_FIO_NUM ; 

: 315 1 (FCBLFCB$L~LOCKBASIS))<16,8> = .FCBLFCBSB_FID-NMX); 

s 1g ! : (FCBCFCBSL_LOCKBASISJ)<24,8> = .FCBLFCBSB_FID_RVNJ; 

3 18 1 If ph re ee ro SPOOL) THEN esececesy SPOOL] = 1; 

; «#3519 130 IF .HEADER CFH2$9_BADBLOCK) THEN FCB CFCBS$V_BADBLK) = 1; 


INIFC 1$-555-1984 00:36:47 VAX#11 BLiss-32.v4.0-762 9 
04-000 race ta Re PS eg tT Weed nehl teach igo saeammirce.e3200°% «3s 


; ? } 08 IF HEADER CFH2$V_MARKDEL] THEN FCB CFCBSV_MARKDEL] = 

3 § 1310 pace cost 34 ng = ROT (.BBLOCKCHEADERCFH2$W_RECATTRJ, FATSL_EFBLKI], 16); 
; 1311 IF FCBLFC EFBLK] NEQ 0 

; 4 1 i AND .BBLOCK Ma DER FueSu RE CAT TRI, parey ie EQL 0 

: 2 : THEN FCBLFCBSL_EFBLK) = .FCBCF cBsi_ LK] - 

: 7 1315 IF .FCBCFCBSL_EFBLK] GTR JearscesL FILES! izt2 

; $ : 18 THEN FCBCFCBSC_ EFBLK] = .FCBCFCBSL_FILESIZEJ; 

: i \8 Now scan the map area. Get the starting LBN if the file is contiguous. 
; 1320 

H 3 1321 MAP_POINTER = fn + ,HEADERCFH2$B_MPOFFSETJ*2; 

3 34 1 ¢ ET_MAP POINTER, 

4 35 1 F cece cost ef mt 

; 336 1324 ADER FH2$V_CON R16) 

3 tH : 2 THEN” Fce FCBSL_ STLBN] = .LBN; 

3 39 1350 ! Build an ACL segment if ACL information exists in the file header, 
; m4 1358 i and this is not an FCB update. 

3 346 1330 IF .HEADERCFH2$V_BADACL] THEN FCBCFCBS$V_BADACL] = 

3; 344 1358 IF .HEADERCFH2$B_ACOFFSETJ*2 LSS .HEADERCFH2SB_ ceed 

s 345 133 AND NOT .CLEANUP_ “FLAGSCCLF _NOBUILD] 

: 346 1334 THEN 

s 567 1335 BEGIN 

; 348 1336 3 ACE -ADDRESS — = .HEADER + .HEADERCFH2$B_ACOFFSETJ*2; 

; 349 1337 ; ACL— LENGTH = 0; 

; 350 1338 DO 

3 635) 1339 4 apy 

; 326 1340 4 L_LENGTH = .ACL_LENGTH + .ACE_ADDRESSCACE$B SIZE); 

3 $27 130) 2 Ace “ADDRESS = ACE ADDRESS + ATE ADDRESSCAC Psa SIZE); 

3 329 1328 3 UNTIL” -ACE_ADDRESSCACES$B_SIZE] EQL 0 

3; 336 1344 OR .ACE-ADDRESS GEQA [HEADER + - HEADERCFH2$B_RSOFFSETJ*2; 
3; 357 1345 IF ACL LENGTH GTR 0 

: 358 1346 THEN 

; 359 1347 4 BEGIN 

; 360 1348 4 ACL_ADDRESS = ALLOC dane CACLSC LENGTH + .ACL_LENGTH ‘Ste TYPE); 
; 361 1349 4 CHSMOVE (.ACL_LENGTA, iH EADER gHEADERCFH?SE A RCOFFSETI*#2 
3 708 1350 4 LADDRESSCACL SL 

; o7 132] 2 ACL_ADDRESSCACL$wW_ SIZE ; “ACLSC LENGTH = ACL _LENGTH; 

3 65 1388 4 IF .FCB CFCBSW_SEGN) EQL 0 

: 366 1354 4 

; 367 1355 4 ACL_FCB = .FCB 

; 368 1 28 4 ELSE 

3 9 132 4 IF ACTUALCOUNT EQL 3 

3 70 1358 4 THEN 

: 71 1359 4 ACL_FCB = .PRIMFCB 

: 7 1360 4 ELSE 

3 7 1361 4 ACL_FCB = .PRIMARY_FCB; 

: 74 1 o¢ 4 

2 75 136 4 FCB_ORB = ACL_FCBCFCBS$R_ORB); 

: 376 1364 4 IF ROT .FCB_ORBCORB$V_ACL_QUEUE) 
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16 
104-000 1b-Se0-1 “13Be MS HB eT NS UwHASTER SCE Tig cReaINiFC2.832:1°%° (45 


OC Ab 9 7 28 001 MOVC C LENGTH a(SP)+, 12(ACL_ADDRESS) F 
08 Ab 5 ; Al 188 ADDW me? ACL LLENGTH, 8(ACL_ADDRESS) + 1351 
2a OA 83 1 TSTW 0s GCF : 1353 
OF 1 1 BEQL 14$ ; 
03 6C 91 0017 CMPBSs« CAP), #3 + 1357. 
06 ff 17 BNEQ 13$ : 
59 0c at 00 7? OVL PRIMFCB, ACL_FCB + 1359 
59 08 AA b0 17D 13$ MOV S(BASE), A ACL_FCB + 1361 
65 8 Ad E 181 14$ MOVAB 8(R9), FCB ORB + 1363 
50 6 08 C1 00185 ADDL3 #11, reat “ORB RO + 1364 
07 6 1 £0 189 BBS wi, (RO); 15$ : 
6— DD 0018D PUSHL FCB_ORB + 1366 
00006 CF gr FB O18F CALLS #1, ACL INIT oy UE : 
50 43 C C1 00194 15$:  ADDL3 #44, FCB_O : 1368 
90 66 OE 00198 INSGUE (ACL ADDRESS Ra cROD* : 
01 AA 08 8A 0019B 16$:  BICB2 #8, T(BASE : 1372 
04 0019F RET + 1374 


; Routine Size: 416 bytes, Routine Base: S$CODES + 0052 


: 387 1375 

3; 388 1376 1 END 

; #389 1377 0 ELUDOM 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: SCODES 498 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 

ee Tk Nace te gears ree ae -- Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 76 0 1000 00:02.0 
: COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: INIFC2/OBJ=OBJ$: INIFC2 MSRC$: INIFC2/UPDATE=(ENHS$: INIFC2) 


K 16 
IN FS 16-Sep-1984 00:36:47 VAX-11 Bliss-32 V4.0-742 Page 13 


Size: 498 ¢ + 0 data bytes 
Run "times i a 3 
Elapsed Tine: 

aif 


Lines/CPU Min: 
Lexenes/CPU-Nin: 4 
ppm Be Used: 311 pages 
Compilation Complete 
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